﻿Public Class frmCadPedidos
    Dim OBJCLI As New CLSClientes
    Dim OBJPED As New CLSPedidos

    Private Sub btnPesquisarCPF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPesquisarCPF.Click
        Dim OBJDTLOCAL As New DataTable
        OBJDTLOCAL = OBJCLI.LocalizarPorCPF(txtCpf.Text)
        If OBJDTLOCAL.Rows.Count = 0 Then
            MessageBox.Show("Cliente não encontrado")
            txtCpf.Clear()
            txtidCliente.Clear()
            txtNomeCliente.Clear()
        Else
            txtidCliente.Text = OBJDTLOCAL.Rows(0).Item(0)
            txtNomeCliente.Text = OBJDTLOCAL.Rows(0).Item(1)
        End If
    End Sub

    Private Sub txtCpf_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtCpf.KeyDown
        If e.KeyCode = 13 Then
            btnPesquisarCPF.PerformClick()
        End If
    End Sub

    Private Sub btnGeraPedidos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGeraPedidos.Click
        OBJPED.ID_Cliente = txtidCliente.Text
        OBJPED.Data_Pedido = MaskDataPed.Text
        OBJPED.Data_Vencimento = MskDatVenc.Text
        OBJPED.Data_Pagamento = MaskDataPagto.Text
        OBJPED.Situação_Pedido = cboSitPed.Text
        Dim linha As Integer
        OBJPED.Gravar()
        TXTIDPED.Text = OBJPED.buscar_ultimo_codigo
        For linha = 0 To dgdGrade.RowCount - 1
            ''OBJPED.ID_PEDIDO_ITEN = TXTIDPED.Text
            ''OBJPED.Data_Pedido = MaskDataPed.Text
            ''OBJPED.Data_Vencimento = MskDatVenc.Text
            ''OBJPED.Data_Pagamento = MaskDataPagto.Text
            ''OBJPED.Situação_Pedido = cboSitPed.Text
            'OBJPED.Gravar()
        Next



    End Sub

End Class